-- card: 4272 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 4073
-- name: Drag Screen
----- HyperTalk script -----
on openCard
  show card field "Do Drag"
end openCard

on showMakeField
  show card field "Make Data Field"
  show card button "Show data field"
  show card button "No, forget it."
  show card button "Play back my drag."
end showMakeField

on hideMakeField
  hide card button "Show data field"
  hide card button "No, forget it."
  hide card button "Play back my drag."
  hide card field "Make Data Field"
end hideMakeField

on startDrag
  show card button "one"
  play "1"
  wait 45 ticks
  show card button "two"
  play "2"
  wait 45 ticks
  show card button "three!"
  play "3"
  wait until the sound is "done"
  put the mouseLoc into x1y1
  repeat until the mouseClick
    click at x1y1 -- draws trace
    put the mouseLoc into x2y2
    put "Drag from  " & x1y1 & "  to  " & x2y2 & return after hold
    put x2y2 into x1y1
  end repeat
  put hold into card field "Data Scroll"
  Put "--Drag Tracer version 1.0" & return & "--Paul A. Leonard" & return & "--3829 Lees Ave." & return & "--Long Beach, CA 90808" & return & return before item 1 of card field "Data Scroll"
  hide card button "one"
  hide card button "two"
  hide card button "three!"
  doMenu revert
  choose browse tool
  showMakeField
end startDrag

on closeCard
  hideMakeField
  hide card field "Data Scroll"
  hide card button "Return"
  put return into card field "Data scroll"
end closeCard



-- part 1 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=26 top=31 right=197 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 8448
-- line height: 16
-- part name: Ask for location


-- part 2 (field)
-- low flags: 80
-- high flags: 2002
-- rect: left=60 top=131 right=153 bottom=440
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 1280
-- line height: 16
-- part name: Data File Location


-- part 3 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=210 top=161 right=185 bottom=295
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  --hide menubar
  --hide card field "Ask for location"
  --hide card field "Data File Location"
  --hide card button "OK"
  show card field "Do Drag"
end mouseUp



-- part 4 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=77 top=50 right=255 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Do Drag
----- HyperTalk script -----
on mouseup
  hide card field "Do Drag"
  choose brush tool
  set the pattern to 12
  startdrag
end mouseup




-- part 6 (field)
-- low flags: 80
-- high flags: 4007
-- rect: left=135 top=42 right=285 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: data scroll


-- part 12 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=53 top=30 right=230 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 8448
-- line height: 16
-- part name: Make data field


-- part 7 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=113 top=160 right=181 bottom=242
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show data field
----- HyperTalk script -----
on mouseUp
  hideMakeField
  show card field "Data Scroll"
  show card button "Return"
end mouseUp



-- part 14 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=271 top=160 right=181 bottom=387
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: No, forget it.
----- HyperTalk script -----
on mouseUp
  hideMakeField
  openCard
end mouseUp


-- part 17 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=149 top=193 right=214 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Play back my drag.
----- HyperTalk script -----
on mouseUp
  hideMakeField
  choose brush tool
  set pattern to 12
  set dragSpeed to 0
  repeat with num=6 to the number of lines in card field "Data Scroll"
    put line num of card field "Data Scroll" into it
    if it is empty then exit repeat
    do it
  end repeat
  wait 1 seconds
  doMenu revert
  choose browse tool
  showMakeField
end mouseUp



-- part 22 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=209 top=264 right=287 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: show fields
----- HyperTalk script -----
on mouseUp
  repeat with i=1 to the number of card fields
    show card field i
  end repeat
  repeat with i=1 to the number of card buttons
    show card button i
  end repeat
end mouseUp



-- part 24 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=381 top=261 right=285 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  hide card field "Data Scroll"
  hide card button "Return"
  showMakeField
end mouseUp


-- part 25 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=45 top=35 right=62 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: one


-- part 26 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=208 top=35 right=62 bottom=294
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: two


-- part 27 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=373 top=35 right=62 bottom=459
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: three!


-- part contents for card part 1
----- text -----
Please insert the name and location of the data file that you wish to save the drag coordinates to in the field below.

Designate the pathname to the file as shown, with volumes and folders seperated by colons. (:)

-- part contents for card part 2
----- text -----
Easy Drive:HYPERR!:Paul's Stacks:Drag Data

-- part contents for card part 4
----- text -----
Click in this box when you are ready to begin tracing the drag path.

After clicking here, move to the starting point of your drag path.  A countdown will begin, and the cursor will become a watch.  At the count of three, when the cursor becomes a paint brush tip, start moving the mouse around the screen.  (You don't need to hold the mouse button down.) 

Click the mouse when you get to the endpoint of your drag pattern.




-- part contents for card part 12
----- text -----
 A card field has now been created that contains the necessary commands to facilitate the automation of an animation routine.
 You can have this field displayed for you now, then you can cut the info out of the field and paste it into your script.

               Would you like to display this field now?



-- part contents for card part 6
----- text -----